library(tidyr)
library(dplyr)
library(ggplot2)

#People voting another person's absentee ballot

Year <- c(2012, 2014, 2016, 2020, 2022, 2024, 2012, 2014, 2016, 2020, 2022, 2024)
Belief <- c("Not Common", "Not Common", "Not Common", "Not Common", "Not Common", "Not Common", "Common", "Common", "Common", "Common", "Common", "Common")
Frequency <- c(56, 62, 64, 63, 58, 57, 44, 38, 36, 37, 42, 43)
df <- data.frame(Year, Belief, Frequency)

ggplot(df, aes(x=Year, y=Frequency)) + geom_line(aes(color=Belief), size=1) + theme_minimal() + scale_y_continuous(limits=c(0,100)) + ggtitle("People voting another person's absentee ballot") + scale_x_continuous(labels=as.character(Year),breaks=Year) + geom_text(aes(label=Frequency), vjust=-1) + scale_color_manual(values = c("#FF6B6B", "#4ECDC4"))
                                                 
